home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-ROM Collection / Amiga CD-ROM Collection - Auge 4000 and Cactus and Demo Util.iso / cactus / 33 / progs / demos / farbpalette.gfa (.txt) < prev    next >
GFA-BASIC Atari  |  1989-06-25  |  1KB  |  36 lines
  1. MAT XCPY 1,0,0,320,256,6,&H800
  2. MAT BASE ADDRIN(1)+84
  3. SETCOLOR 0,0,0,0
  4. SETCOLOR 1,0,0,0
  5. blau|=&H10
  6. rot|=&H20
  7. grÜn|=&H30
  8. up|=0
  9. dn|=15
  10. FOR o|=0 TO 3
  11.   FOR m|=0 TO 3
  12.     x&=m|*51+1+50
  13.     y&=o|*50+25
  14.     DEFLINE 1
  15.     COLOR m|+rot|+o|*4
  16.     LINE x&,y&,x&,y&+48
  17.     GOSUB senkrechtschmal(blau|,x&+1,y&)
  18.     GOSUB waagrecht(grÜn|,x&+1,y&)
  19.   NEXT m|
  20. NEXT o|
  21. DO
  22. LOOP UNTIL MOUSEK
  23. EDIT
  24. > PROCEDURE senkrechtschmal(farbe|,x&,y&)
  25.   FOR n|=0 TO 15
  26.     DEFFILL n|+farbe|
  27.     PBOX x&,y&+n|*3,x&+4,y&+n|*3+3
  28.   NEXT n|
  29. RETURN
  30. > PROCEDURE waagrecht(farbe|,x&,y&)
  31.   FOR n|=1 TO 15
  32.     DEFFILL n|+farbe|
  33.     PBOX x&+3*n|,y&,x&+3+3*n|,y&+3*16
  34.   NEXT n|
  35. RETURN
  36.